home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / bsprite.com / FRED.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-02-16  |  299 b   |  17 lines
  1. READ items%
  2. DIM Sprite(items%) AS LONG
  3. FOR x% = 0 TO items%
  4.    READ Sprite(x%)
  5. NEXT
  6. SCREEN 13
  7. pi = 22 / 7
  8. DO
  9.    FOR x = 0 TO 2 * pi STEP pi / 500
  10.       PUT (100 + 100 * COS(x), 50 + 50 * SIN(x)), Sprite, PSET
  11.       IF INKEY$ <> "" THEN EXIT DO
  12.    NEXT
  13. LOOP
  14. END
  15. '$INCLUDE: 'FRED.BI'
  16.  
  17.